home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / colsoncd.dxr / 00003Series_96.ls < prev    next >
Encoding:
Text File  |  2000-01-11  |  2.5 KB  |  74 lines
  1. on mouseUp
  2.   put EMPTY into field "optionlhfield"
  3.   if the hilite of cast "b_6lhop8" = 1 then
  4.     if field "op" contains "LH9.5:" then
  5.       delete char -30000 of field "op"
  6.       delete char -30000 of field "op"
  7.       delete char -30000 of field "op"
  8.       delete char -30000 of field "op"
  9.       delete char -30000 of field "op"
  10.       delete char -30000 of field "op"
  11.       delete char -30000 of field "op"
  12.       delete char -30000 of field "op"
  13.       delete char -30000 of field "op"
  14.       delete char -30000 of field "op"
  15.       delete char -30000 of field "op"
  16.       delete char -30000 of field "op"
  17.       delete char -30000 of field "op"
  18.       delete char -30000 of field "op"
  19.       delete char -30000 of field "op"
  20.       delete char -30000 of field "op"
  21.       delete char -30000 of field "op"
  22.       delete char -30000 of field "op"
  23.       delete char -30000 of field "op"
  24.       delete char -30000 of field "op"
  25.       delete char -30000 of field "op"
  26.       delete char -30000 of field "op"
  27.     end if
  28.     if the number of chars in field "op" > 1 then
  29.       put "; " into field "optionlhfield"
  30.     end if
  31.     put "LH9.5: LH=9-1/2 inches; " after field "optionlhfield"
  32.   end if
  33.   if the hilite of cast "b_6lhop8" = 0 then
  34.     if field "op" contains "LH9.5:" then
  35.       delete char -30000 of field "op"
  36.       delete char -30000 of field "op"
  37.       delete char -30000 of field "op"
  38.       delete char -30000 of field "op"
  39.       delete char -30000 of field "op"
  40.       delete char -30000 of field "op"
  41.       delete char -30000 of field "op"
  42.       delete char -30000 of field "op"
  43.       delete char -30000 of field "op"
  44.       delete char -30000 of field "op"
  45.       delete char -30000 of field "op"
  46.       delete char -30000 of field "op"
  47.       delete char -30000 of field "op"
  48.       delete char -30000 of field "op"
  49.       delete char -30000 of field "op"
  50.       delete char -30000 of field "op"
  51.       delete char -30000 of field "op"
  52.       delete char -30000 of field "op"
  53.       delete char -30000 of field "op"
  54.       delete char -30000 of field "op"
  55.       delete char -30000 of field "op"
  56.       delete char -30000 of field "op"
  57.     end if
  58.   end if
  59.   put field "optionlhfield" after field "op"
  60.   delete char -30000 of field "op"
  61.   delete char -30000 of field "op"
  62.   put field "op" into field "mainop"
  63.   puppetSound("foundspec")
  64.   puppetTransition(47, 1, 8)
  65.   put the number of lines in field "tblca_Fe,FEATURE"
  66.   if the number of chars in field "Tblca_Fe,FEATURE" > 200 then
  67.     put field "Tblca_Fe,FEATURE" into field "specbfea"
  68.     play frame "specb"
  69.     abort()
  70.   end if
  71.   play frame "speca"
  72.   abort()
  73. end
  74.